home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Comm
/
yam
/
YAMGenesis.lha
/
YAMGenesis
/
debug
/
GenesisQuit.yam.deb
< prev
Wrap
Text File
|
2001-10-21
|
3KB
|
89 lines
/* GenesisQuit.yam - Quit Genesis if started from YAM.
*
* $VER: GenesisQuit.yam 1.01 (1.5.01) © H. van der Ree <hivdree@uwnet.nl>
*/
OPTIONS RESULTS
OPTIONS FAILAT 5
SIGNAL ON FAILURE
SIGNAL ON SYNTAX
IF ~OPEN('FH', 'RAM:GenesisOnline.debug', 'A') THEN
CALL OPEN('FH', 'RAM:GenesisOnline.debug', 'W')
CALL WRITELN(FH, '')
CALL WRITELN(FH, date('N') '-' time('N')||': GenesisQuit.yam.')
/* Don't quit if one of these applications is running */
ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
interface = GETVAR(GENESISINTERFACE, "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': Used interface' interface||'.')
genesisport = "GENESIS"
CALL WRITELN(FH, date('N') '-' time('N')||': Checking STARTEDBYYAM ..')
action = GETVAR(STARTEDBYYAM, "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': content is' action||'.')
IF action = "YES" THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Looking for ports ...')
DO i = 1 TO WORDS(ports)
CALL WRITELN(FH, date('N') '-' time('N')||': ' WORD(ports, i))
IF SHOW('P', WORD(ports,i)) THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Found port' WORD(ports, i))
CALL LastBits
CALL WRITELN(FH, date('N') '-' time('N')||': If this shows up then there is something seriously wrong!')
END
END
CALL WRITELN(FH, date('N') '-' time('N')||': Checking port' genesisport||'.')
IF SHOW('P', genesisport) THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Found!')
CALL WRITELN(FH, date('N') '-' time('N')||': Changing ADDRESS to' genesisport||'.')
ADDRESS VALUE genesisport
CALL WRITELN(FH, date('N') '-' time('N')||': Checking online status')
ISONLINE interface
RCN = RC
CALL WRITELN(FH, date('N') '-' time('N')||': RC:' RCN||'.')
IF RCN = 0 THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Stop Genesis.')
QUIT
CALL WRITELN(FH, date('N') '-' time('N')||': DONE! RC:' RC||'.')
END
END
END
LastBits:
CALL WRITELN(FH, date('N') '-' time('N')||': LastBits, deleting vars')
CALL DELETEVAR(STARTEDBYYAM, "GLOBAL")
CALL DELETEVAR(GENESISINTERFACE, "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': DONE!')
OPTIONS FAILAT 6
CALL WRITELN(FH, date('N') '-' time('N')||': Delete T:#?.unp.')
ADDRESS COMMAND 'delete >NIL: T:#?.unp T:#?.tmp T:msg.db T:qfu.rexx'
CALL WRITELN(FH, date('N') '-' time('N')||': DONE!')
CALL WRITELN(FH, date('N') '-' time('N')||': Quited, go back to YAM....')
CALL CLOSE(FH)
EXIT 0
FAILURE:
SIGNAL OFF FAILURE
CALL WRITELN(FH, date('N') '-' time('N')||': ERROR!!!')
CALL WRITELN(FH, date('N') '-' time('N')||': Line' SIGL SOURCELINE(SIGL))
CALL WRITELN(FH, date('N') '-' time('N')||': caused an error, RC='||RC)
CALL CLOSE(FH)
EXIT RC
SYNTAX:
SIGNAL OFF SYNTAX
CALL WRITELN(FH, date('N') '-' time('N')||': SYNTAX ERROR!!!')
CALL WRITELN(FH, date('N') '-' time('N')||': Line' SIGL SOURCELINE(SIGL))
CALL WRITELN(FH, date('N') '-' time('N')||': caused an error, RC='||RC)
CALL CLOSE(FH)
EXIT RC